home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. Windows 3
/
dr win3.zip
/
dr win3
/
WINPROGS
/
SPMATE12.ZIP
/
SPELLAPP.PA$
/
spellapp.pas
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
2KB
|
58 lines
{************************************************}
{ }
{ Demo program }
{ Copyright (c) 1991 by Borland International }
{ }
{************************************************}
program SpellApp;
uses WinTypes, WinProcs, OWindows, ODialogs, SpellWnds;
type
{ Declare TFileApp, a TApplication descendant }
TFileApp = object(TApplication)
procedure InitMainWindow; virtual;
procedure InitInstance; virtual;
end;
{ Declare TMyFileWindow, a TFileWindow descendant }
PMyFileWindow = ^TMyFileWindow;
TMyFileWindow = object(TFileWindow)
constructor Init(AParent: PWindowsObject; ATitle: PChar);
end;
{ Construct a TMyFileWindow, loading its menu }
constructor TMyFileWindow.Init(AParent: PWindowsObject; ATitle: PChar);
begin
TFileWindow.Init(AParent, ATitle, nil);
Attr.Menu := LoadMenu(HInstance, 'FileCommands');
end;
{ Construct the TFileApp's MainWindow of type TMyEditWindow }
procedure TFileApp.InitMainWindow;
begin
MainWindow := new(PMyFileWindow, Init(nil, 'Editor Spell Checker'));
end;
{ Initialize each MS-Windows application instance, loading an
accelerator table }
procedure TFileApp.InitInstance;
begin
TApplication.InitInstance;
if Status = 0 then
HAccTable := LoadAccelerators(HInstance, 'FileCommands');
end;
{ Declare a variable of type TFileApp }
var
FileApp: TFileApp;
{ Run the FileApp }
begin
FileApp.Init('FileApp');
FileApp.Run;
FileApp.Done;
end.